home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / butt01.zip / BUTTON.GEN < prev    next >
Text File  |  1993-01-04  |  1KB  |  48 lines
  1. <<* B_Menu.GEN *>>
  2. <<title "Button Menu Generator">>
  3. <<string fmain,fproc>>
  4. <<integer indent,errnum,lasthue,forecolor,backcolor>>
  5.  
  6. <<*  Variables used in PickMain  *>>
  7. <<string prgname,fpath,fname,fext,fieldcolor>>
  8. <<integer BaseLine,ColOffset,WindowBotABS>>
  9. <<logical MultiPick,MultiLine,ColorIsOk >>
  10.  
  11.  
  12. <<#include 'UTIL.INC'#>>  <<*Routines used by PickPROC*>>
  13. <<#include 'ButtMAIN.INC'#>>  <<*Main program file*>>
  14.  
  15. <<#pragma
  16.  
  17. function GetPrgName( prompt : string ) : string
  18. string fspec,fpath,fname,fext
  19. begin
  20.   input prompt to fspec
  21.   if fspec
  22.     filespec( fspec,fpath,fname,fext )
  23.     fspec := fpath + fname + '.PRG'  <<*Force a '.PRG' extension*>>
  24.   endif
  25.   RETURN fspec
  26. end <<*GetPrgName*>>
  27.  
  28.  
  29. begin <<*MAIN*>>
  30.   if table
  31.     fmain := GetPrgName( "Enter FILENAME of program to GENERATE" )
  32.     if fmain
  33.       errnum := rewrite( fmain )
  34.       if errnum = 0
  35.         ProgramBody( fmain )
  36.       endif
  37.       wait
  38.     endif
  39.   else
  40.     wait "No FoxView Table is available "
  41.   endif
  42. end <<*MAIN*>>
  43. #>>
  44.  
  45. <<* EOF: Pick.GEN *>>
  46.  
  47.  
  48.